SUBROUTINE ADUP(X)
	DIMENSION A(20)
	COMMON K,ACC,IOUT
	IF(ACC.EQ.0)GO TO 4
	X=0
5	ACCEPT 3,A
3	FORMAT(20F)
	DO 1 J=1,20
	IF(A(J).EQ.-1)GO TO 5
C  TYPE -1 IN INPUT STRING TO ALLOW FURTHER LINES.
1	X=X+A(J)
4	IF(A(1).NE.-99.AND.A(1).NE.-999)WRITE(IOUT,2)X
C  -99 AND -999 ARE FOR BACKUPS.
2	FORMAT('+',F12.2/)
	END

	SUBROUTINE TYP(J,I)
	COMMON K,ACC,IOUT
	K=J
	WRITE(IOUT,10)J,I
10	FORMAT(' LINE ',I2,A1,$)
	END
	SUBROUTINE STDED(X)
	END
	SUBROUTINE SMALL(X)
	END